|
|  Russite Castile
|  Ecrit par Ph. DONSBACK
|
SCRIPT_TYPE 1
|
BEGIN "Castile"

  FLAGS  ClickFly AutoFly AnimateFly
  PACKS  1
  WIDTH  4 * CW + 4 * 2 * COW + 4 * 11 * COW
  HEIGHT 4 * CH

  ZeroToWin 52 - CARDSIN$1

  FOR stack = 0 TO 3
    FOUNDATION
      X stack * CW + stack * 14 * COW
      Y 0
      FLAGS Join____
      ID 1
    END
  END

| The fans

  FOR row = 1 TO 2
    FOR stack = 0 TO 3
      STACK
        X stack * CW + stack * 14 * COW
        Y row * CH
        FIRST 13
        DEAL 3,1
        DRAGUPTO 1
        FLAGS ClickFly Join____ PaintRight
        ID 4
      END
    END
  END

| The 4 reserves

  FOR stack = 0 TO 3
    STACK
      X stack * CW + stack * 14 * COW
      Y 3 * CH
      MAX 0
      DEAL 7,1
      DRAGUPTO 1
      FLAGS ClickFly PaintRight
      ID 3
    END
  END

END
